DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 


eee eee 


**F ILE**1D**KEYPAD 


ESEEEEEE YY YY PPPPPPPP AAAAAA DODDDDDD 
EEEEEEEE YY YY ee AAAAAA rong 


AB 

YY YY PP PP AA AA DD DD 
YY YY PP PP AA AA 0D DD 
yy yy PP PP AA AA 0D DD 
EEEE YY PPPPPPPP AA AA 
EEEE YY PPPPPPPP AA AA 
PP AAAAAAAAAA 

YY PP AAAAAAAAAA 4 


AA BA. 
YY PP AA AA D DD eeee 
EEEEEE YY PP BA AA DDDDDDDD eee 
EEEEEE YY PP fa AA DDDDDDDD eeee 


x 

x 

x 

x 

x 

x 

MmMmMmMmMmMmmmmmmnmen 
LJ 

cvovvo7cs9o 
J 
o 


MMMMmMMmMmmMmmmmmnencrrn 
mm 
mm 


L 
LLLLLLLLLL III! SSS 
LLLLLLLLLL HII SSS 
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Table of contents 
(3) 147 DEFINE KEYPAD SYMBOL 
(4) 34 DELETE A Nag ge 
(7) 6 SHOW coy AD SYMBOL TABLE ENTRIES 
(10) ) ALLOCATE AND INSERT ENTRY IN KEYPAD SYMBOL TABLE 
(11) CHECK FOR S YM KEY NAMES 
016} 9 SEARCH FOR SYMBOL ENTRY IN KEYPAD SYMBOL TABLE 
(13) 10 SEARCH ave sneo. TABLE FOR ENTRY 
(16) 111 SET hig F a ATE 
(15) 1184 ALLOCATE AND INIT A KEYPAD STATE SYMBOL 
(16) 1223 DEALLOCATE A KEYPAD STATE SYMBOL 
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- TITLE Va Ps = KEYPAD SYMBOL TABLE MANIPULATION ROUTINES 
IDENT "V04=000" 


Ooo 


SOoOooooooooooooooooooo 


MAAAARAAAASALAAALALALAAL ALES ESE REELS EEE E REET EEE EET ET ET ET TTS TTT Tec eee cea | 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
a 
® 
& 
® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
NW yACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 
HER PERSON, TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 
® 
® 
® 
te 
® 
® 
® 
® 
* 
| 


f=i=) 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
HO! T BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


CORPORATION. 


DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH IS 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


* @aeeneeeeeaeeae eee enananne 


PAAARAAAAAAALELASESESESELEE SEE EEE RSET ERE EERE SESE EEE ERE SEE EE EEE EEE 
KEYPAD SYMBOL TABLE MANIPULATION ROUTINES 
AUTHOR: Peter George 15-March-1983 


These routines all assume the structure of a ke pad symbol 
block, starting with the symbol name (SYM_T_SYMO 


tg Ppl ss ghd of _ Syabet name 
m 

Word - eh Lengths of next three strings + 4 
Byte - length of if_state string 

ASCII if_state strin 


Ww h 

ASCII symbol valu 

Byte - length of set_state string 
ASCII set_state string 


s as follows: 


MODIFIED BY: 


v03-006 pees Harold Schultz 18-Apr-1984 
Use DCLSALLOC_STATE when setting tempor ery ioe states 
and DCLSLOCKEB_STATE to restore original state. 
Exchange the synpnye Keypad names with the, common Key names. 
(i.e. translate ‘FIND’ instead of ‘E1" to ‘FIN 


v03-006 wusO05e Harold Schultz 09-Apr-1984 
Translate synonya, keypad, names to a common key name. 
ate ‘‘E1" *"F IND'') 


D**) 


SOOOOCOCOCOOCOSOOOOSSOSOOSooooooosoooooooooooooooooocoo: 


(i.e. Trans 
Add SHOW KEY/LOG. 


v03-005 PCG0005 Peter George 09-F eb-1984 


SOoOSCOCSOSOOOSCOSOSOOSOOOOSOSOoOSoSoOoOSoOSoOSoSooOOoSoS 


SOOOSOSOCOOOOOOOOSOSOOSOSGOOSSSSooooooooococooocoooooooooooooooo 


SOooosooooooooooooooooooooooooosooooooooooOoOoOoOoOoOOOOOOOOOOOO 


PUPPIES BS BS BBE ES PWIA WII IIAP PINUDINIAIMUNININ 2 2 2 OO aes os 


NOUS WN @ SO OONOUE WN O OONOU SWIM O0 


Sooooo 


oo 
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Change format of SHOW KEY display. 
Add SHOW KEY/FULL 


H $ ; Zero the input buffer at the end of DCLSDEFKEY. 

4 63 : V03-004 PCG0004 Peter George 01-Dec-1983 
8 o7 : Add /ERASE. 

09 65 : v03-003 PCG0003 Peter George 27-Jul-1983 
st 8 : Move PSECT declaration. 

000 68: v03-002 PCG0002 Peter George 27-May-1983 
B88 $3 : Validate key names before defining them. 

0000 71 ; v03-001 PCG0001 Peter George ; 07-Apr-1983 
0000 ie 3 Tolerate omission of SET KEY qualifiers. 

5006 fF : Add SHOW KEY/BRIEF/DIRECTORY. 
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v04-000 4-SEP=-1984 DCL.SRCIJKEYPAD.MAR; ri. 


COMMON"KEY NAME IS NEEDED, THEN ADD IT TO SYNDEF TAB. 
-MACRO SYNONYM NAME NAME1 ,NAME2 
-ASCIC ‘'NAME1™ 

ef *NAME2* ADR = SYNDEF_TAB 


SSN NNN NNN NNN NNN 


} 
| 
0 6 3 | 
0 f ; MACRO LIBRARY CALLS 
0 15 : PRCDEF ;DEFINE PROCESS DATA STRUCTURE | 
0 RKDEF [DEFINE COMMAND DATA STRUCTURE 
1 PTRDEE [DEFINE TOKEN DESCRIPTORS 
g SYMDEF 7DEFINE SYMBOL ENTRY OFFSETS 
0 SCLIMSGDEF [DEFINE ERROR/STATUS VALUES 
0 4 SDEF *DEFINE STATUS LONGWORD | 
oon 3 6 -PSECT DCLS$ZCODE,BYTE,RD,NOWRT | 
0 3 
9000 89 ; ASCIC TEXT STRINGS FOR SHOW KEYS DISPLAY. | 
0 64 61 70 79 65 6B 20 43 41 21 00° 0900 3 SHOWNDR: ASCIC '!AC keypad definiti ' | 
gh 73 6E 6F 69 74 69 GE 69 66 65 64 000C : a magia eeen iste nae 
17 0000 
: 0018 93 BRIEFFAO: han 
20 99 01 94 eASCIC * 'AS = "Has" 
253 0024 
0D 0018 
026 95 FULLFAO: 
8 99" $68 96 eASCIC * 'AS = “HAS'’ (!ACecho, !ACterminate, 'ACerase, 'AClock!AC!AC!AS)' 
1 2¢ b03¢ 
g 65 004A 
43 41 0056 
41 @! 0062 
F 0026 
6E 09° 0066 97 NO: sASCIC ‘no 
0066 
73 00° 0069 98 STATE: .ASCIC ‘state=' 
06 0069 
00 0070 NULL: .BYTE 0 
2c 00° 0071 100 COMMA: .ASCIC ‘,° 
01 6 1 | 
6 : SYNONYM KEY NAME TABLES 
0 : | 
0 + DEFINE SYNONYM KEY NAMES | 
: SYNONYR NAME SETS UP THE RELATIONSHIP BETWEEN THE SYNONYM (NAME1) AND | 
3 COMMON KEY NAME (NAME2) THAT THE SYNONYM IS TRANSLATED TO. IF A NEW 
: CYRONYH IS CREATED THAT TRANSLATES TO AN EXISTING COMMON KEY NAME (IN 
; SYNDEF_TAB), ONLY AN ENTRY IN SYNNAME TAB NEEDS TO BE ADDED. IF A NEW | 
Py | 
| 


tt I I M*QOOOOOOOO CVO 


DWONOUSWN —OOONOULS WAI OO 


eee 
: 
mm 


SOOCOOCOSSOOOOOOOOoOOooOoSoOo 


Be ee ns ee a A HS 


_TAB: 


SOOoOooooooooooooooo 
Sse 
ANN NNO OOP OPW 


ab ab Re 8 A a a tt a ts ot te 


SHREK HS EWN nononononononononony 


MEW 9 OONAUES WN) O OONOULS WhO 
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SYNONYM _NAME 


SYNONYM_NAME 
YTE 


o2vuMz2e-™ 
momma 


; DEFINE COMMON SYNONYM KEY NAMES 
; NAME = COMMON TRANSLATED NAME (I.E. ‘‘FIND'') 


-MACRO SYNONYM_TRN NAME 


ADR: 
~ASCIC "NAME" 
~ENDM 


SYNDEF _TAB: 


SYNONYM_TRN 


SYNONYM_TRN 


mmmmmmemn 
Quifwn— 


wSEp=19be S3:at:30 


AX/VMS Macro V04-00 
DCL.SRCIKEYPAD.MAR; 1 


DEFINE SYNONYM KEY NAMES 


END OF TABLE MARKER 
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«SBTTL DEFINE KEYPAD SYMBOL 
; DCLSDEFKEY - DEFINE KEYPAD SYMBOL 
{THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE DEF INE/KEY 


+ 


INPUTS: 


R8 = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
R9 = ADDRESS OF SCRATCH STACK. 

R10 = BASE ADDRESS OF COMMAND WORK AREA. 
R11 = BASE ADDRESS OF PROCESS WORK AREA. 


OUTPUTS: 
4 I Ag laa META@KEY IS ASSIGNED TO THE SPECIFIED EQUIVALENCE 


CLSDEFKEY:: DEFINE META@KEY EQUIVALENCE 


; SET INITIAL PARSE STATE. 


DOoOSOOOOSOSOSSOSOSOSOSSSOOSOSOSOSOSOOSOSOSOSOOSOQOOOOSOOOOOOO 


OOOCSSSOSCSSOOSOOSOSOSOSOSOOSOSOSSOSSOSOSOSSOOOOOSOOOOOOOSoOOO 


RNIN 3 @§ = 20090 MH BMMMMMMNOS SO VF FSIS ISI IANCAOAQAAAHAOAAAAOAAAAAAAAAAAOOOO 


D ED OVOONOM NUIMD OB FMA DRWWWWW = 9 OOOO0000000000000000000000 
oooo OOO 000009 09 69 6909 0909 09 SINISE NNO OO PUPAE 
CNS SEN SER SS SENS REN SEONG AEN SOR ONE NOON OTN COE 

o 

- 

2 

=) 


56 01 =O MOVL us M_ECHO,R6 s INITIALIZE KEYPAD FLAGS 
57 01 00 MOVL wR? ‘INITIALIZE LOCAL FLAGS (/LOG) 
58 4 CLR [CLEAR IF_STATE T 
79 «7 =(R9) TALLOCATESET_STATE DESCRIPTOR 
; : PROCESS THE TOKENS ON THE COMMAND LINE. 
4a} 38 BSBW DCLSGETDVAL sSKIP PAST /KEY DESCRIPTOR 
FFO7" 10$: BSBW DCLSGETDVAL :GET NEXT DESCRIPTOR VALUES 
55 04 0—CO«OS CMPB ss #@P TR_K_ENDLINE,R5 
03 12 BNEQ 15$ ~ ?NO * CONTINUE PARSING 
OOAF 31 BRW 70$ SYES, THEN DONE PARSING 
55 03 91 15$ CMPB 0s #PTR_K_PARAMETR,RS SITEM TYPE ppARAMETER? 
95 12 BNEQ 208 ~ [NO, THEN PROCESS QUALIFIER 
79 51 «7D MOV = R1,=(R9) SAVE PARARETER DESCRIPTOR 
é 11 BRB 10$ :GET NEXT TOKEN 
FFi2" 30 20$ BSBW = DCLSGETN [GET QUALIFIER NUMBER 
00000000°8F 51 01 CMPL sR Hate ADEFK. TERM SQUALIFIER MATCH? 
8 13 BeaL §46=s-«30 [YES, THEN PROCESS 
00000000'8F 51° 1 CMPL = R1, @CLISK_DEFK_ECHO SQUALIFIER MATCH? 
13 BeaL 46-35 [YES, THEN PROCESS 
00000000'8F 51 »p1 01 CMPL = R17, #@CLISK_DEFK_LOCK [QUALIFIER MATCH? 
3 13 01 Bear 408 SYES, THEN PROCESS 
00000000'8F 51 1 01 CMPL R} #CLISK_DEFK_LOG SQUALIFIER MATCH? 
41 13 «01 Bear «0s «4 3 TYES, THEN PROCESS 
00000000°8F 51 »1 01 CAPL = R1, @CLISK_DEFK_SET_ SQUALIFIER MATCH? 
4F 0 1301 Bea. 46 45$ [YES, THEN PROCESS 
00000000°8F 51 D1 01 CMPL = R1, M@CLISK_DEFK_IF_S SQUALIFIER MATCH? 
8 13 01 Bea. 50$ ‘YES, THEN PROCESS 
00000000'8F 51 pi 01 CMPL 1, #CLISK_DEFK_ERAS SQUALIFIER MATCH? 
1 13 01 Bea. 4-55 [YES, THEN PROCESS 


F 4 | 
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v04-000 DEFINE KEYPAD SYMBOL 4-SEP-1984 DCL.SRCJKEYPAD.MAR; 1 
ay 11 4 25$: BRB 108 GET NEXT | 
30$:  SETBIT SYM_V_TERMINATE,R6 sASSUME /TERMINATE 
F753 00 «E71 3 #PTR_O_NEGATE-PTR_V_FLAGS,R3,25$: IGNORE IF NOT /NOTERMINATE 
0 8 CLRBIT H_O_TERMINATE ,RE :CLEAR TERMINATE FLAG 
10 35$: SETBIT SYM_V_ECHO,R6 SASSUME /ECHO | 
&53 OO €1 11 BBC #PTR_0_NEGATE-PTR_V_FLAGS,R3,25$: IGNORE IF NOT /NOECHO 
19 CLRBIT SYM_0_ECHO,R6 [CLEAR ECHO FLAG 
& 11 1 BRB 4 [GET NEXT 
14 40$:  SETBIT SYM V_LOCK,R6 SASSUME /LOCK | 
oF 53. 00 «€1 15 BBC #PTR_0_NEGATE-PTR_V_FLAGS,R3,25$: IGNORE IF NOT /NOLOCK 
16 CLRBIT SyM_0_COCK.R6 [CLEAR LOCK FLAG 
DA 11 1 BRB 5$ :GET NEXT 
7 O01 00 18 43$:  MOVL #1,R7 SASSUME /LOG 
p3 53 9 E1 1 BBC #PTR_V_NEGATE-PTR_V_FLAGS,R3,25$:1GNORE IF NOT /NOLOG 
D4 0 CLRL sR? [CLEAR FLAG 
CF 1 25$ [GET NEXT | 
: 55$:  SETBIT SYM_V_ERASE,R6 TASSUME /ERASE 
(853 00 €1 #PTR_O_NEGATE-PTR_V_FLAGS,R3,25$: IGNORE IF NOT /NOERASE 
4 CLRBIT SYN_ULERASE.R6 [CLEAR ERASE FLAG 
(3 «O11 4 BRB 5$ [GET NEXT | 
; 45$:  CLRBIT SYM_V_STATE,R6 ZASSUME /NOSET_STATE 
BC 53 00 €0 8 BBS #PTR_U_NEGATE-PTR_V_FLAGS,R3,25$:1GNORE IF NOT~/SET_STATE 
9 SETBIT SYM_V_STATE,R6 SET STATE FLA 
FEg9" 0 0 BSBW DCLEGETDVAL [GET THE ASSOCIATED VALUE 
69 51 7D 1 MOVa = R1, (RO) :SAVE THAT VALUE 
Bi 11 : BRB 25$ [GET NEXT 


WOOO OO DO OO OW 09100 09 SII INNA AA AAA MII 


ee ed ee ed eh a ed et = 4 = 4 4 3) 49 4 4 4 os ss ts ss 2 
S2z272SSSS3 s 
Mm*DW~naLoOCy> DOCOMO ODHMUMOO DVL SO DP POM MM POW TM BW SNVUMIM DW OG" "oO 


| 
58 4 3 508: CLRL RB ASSUME /NOIF_STATE 
AB 53 00 €0 5 BBS #PTR_V_NEGATE-PTR_V_FLAGS,R3,25$; IGNORE IF NOT /IF_STATE 
58 BA AA 8 6 MOVL wRx_C_RSLNXT(R10) °RB SAVE VALUE TOKEN PTR | 
FE77" 30 7 52$: BSBW DCLSGETDVAL 3GET NEXT DESCRIPTOR VALUE 
54 05 01 8 CMPL #PTR_K_C ‘ TERMINATOR A COMMA? 
FB 13 9 BEQL $ GET NEXT VALUE 
9 11 0 #9 BRB 258 GET NEXT 
42 ; 
“3 : INSERT THE META*KEY SYMBOL IN THE SPECIFIED KEYPAD SYMBOL TABLES. | 
45 ; SCRATCH STACK LOOKS LIKE: 
4g 3 (R9) EQUIVALENCE STRING DESCRIPTOR 
47; (R9) METAKEY NAME DESCRIPTOR 
48 : 6(R9) SET_STATE DESCRIPTOR 
$ : R6 CONTAINS SYMBOL FLAGS 
08 Ad so 7F ? 70$: PUSHAQ 8(R9) PUSH THE DESCRIPTOR ADDRESS 
00000000' EF 1 F ; CALLS #1 VALIDATE KEY_NAME 31S IT VALID? 
SF 9 E BLBC RQ.97 NO, THEN RETURN ERROR 
50 0 4 MOVL R7.R :GEf /LOG FLAG 
51 08 Ao —s 2D 5 MOVG BCR) RI [GET KEY NAME DESCRIPTOR 
4AA 0 § 8SBW DCLESYNONYH CHECK FOR SYNONYMS 
08 A9 1 B va R1,8(R9) SAVE RETURNED KEYPAD NAME 
26 1 € 3 BB #SYM_V_TERMINATE ,R6,71$ BRANCH IF /TERMINATE 
6 1 CA BICL #SYM"M-ECHO,R6 s IGNORE THE ECHO FLAG 
60 71$: ASSUME PTR_R_COMMA NE 0 


G 4 
= KEYPAD SYMBOL TABLE MANIPULATION ROUTI 15-SEP-1984 23:59:38 YAX/VMS Macro V04-00 Page 7 
DEFINE KEYPAD SYMBOL 4S Pa 9b4 Batik DCL. SRCIKEYPAD.MAR; 1 : (3) | 


3 D 186 mOVL RB ,WRK_L_RSLNXT(R10) RESET FOR FIRST IF_STATE VALUE 
FEGS* : 1B 3 72$:  BSBW  DCLSGETDVAL :GET NEXT DESCRIPTOR VALUE 
5854 1BB 264 MOVL RGR [SAVE THE TERMINATOR 
0503 185 65 BSBW DCLSALLOC_STATE [SET NEW STATE 
F iC 66 75$: BSBW DCLSALLOCREY SALLOCATE THE KEYPAD SYMBOL 
3150 =€9 1c BLBC ~—=_-«aRO,, 95 [BRANCH IF ERROR 
1€7 ; 
\ef 29 3 OUTPUT /LOG MESSAGE. 
13 Ss? €9 01¢? tg : LBC —_-« RR, 80 zSKIP IF /NOLOG | 
08 AD «O«OF:«(LCA O87 PUSHAB 8 [SET ADDRESS OF META-KEY NAME DESCR 
48 AB Db OicD «57% PUS PRC_L_CURRKEY(R11) [SET ADDRESS OF ASCIC STATE NAME 
51 D 109 75 MOVL “ [SET ARGUMENT COUNT 
50  0003DDC3 8F p 1D id: MOVL #CLIS$_DEFKEY,RO [SET STATUS 
FE23" 1DA 27 BSBW © DCLSFORMMSG [OUTPUT THE LOG MESSAGE 
58 05 D1 1p 28 80S: cHPL #PTR_K_COMMA,RE ; TERMINATOR A_ COMMA? 
FE1B’ 3 ate 80 BSBW DCLSLOCKED_STATE SYES, RESTORE LOCKED KEY STATE 
1E 1 : BEFORE GETTING NEXT STATE 
p11 iE i BRB 72$ [GET NEXT VALUE 
01E7 4; 
OIE? 85 : RESTORE KEYPAD STATE AND RETURN. 
0100 8F 00 6€ 00 2c OIE? gS $0$:  MOVCS 4#0,(SP),#0,#WRK_C_INPBUFSIZ,- ;RESET THE INPUT BUFFER 
F896 CA 1EE 88 WRK_G_INPBUF (R10) : 
O1F1 9 STATUS NORMA 'SET NORMAL COMPLETION 
FEOS' 30 iF 30 95$: BSB DCLSLOCKED_STATE ZRESTORE KEY STATE 
50 00038280 8F DO OTF 92 97$:  MOVL #CLI$_IVKEYNAM,RO :SET STATUS 
" F3. isd $308 38 BRB 95$ 7 RETURN 
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»SBTTL DELETE KEYPAD SYMBOL 
DCLSDELKEY = DELETE KEYPAD SYMBOL 
Pas out ine IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE DELETE/KEY 


+ 


SELES 


3 ; INPUTS: 
4: ‘ = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
5; = ADDRESS OF SCRATCH STACK. 
$ ; = BASE ADDRESS OF COMMAND WORK AREA. 
; = BASE ADDRESS OF PROCESS WORK AREA. 
09 : OUTPUTS: 
5 i ; THE SPECIFIED META-KEY IS DELETED FROM THE SYMBOL TABLE. 
1 e 
03 14 0 DCLSDELKEY:: ;DELETE KEYPAD DEFINITION 
88 16 ? SET INITIAL PARSE STATE. 
58 D4 82 18 , CLRL Rg ZCLEAR STATE TOKEN, PTR 
03 op 0207 31 PUSHL # ZINITIALIZE LOCAL FLAGS 
44 Y : /LOG, /ALL, NO UNDEFINED SYMBOLS 
09 ; 
3 $j $ PROCESS THE TOKENS ON THE COMMAND LINE. 
FOF4" 30 9 5‘ BS8wW DCLSGETDVAL :SKIP PAST /KEY DESCRIPTOR 
FDF1* 30 C 6 10$:  BSBW  DCLSGETD :GET NEXT DESCRIPTOR VALUES 
55 04 1 F CMPB Os #PTR_K TENDLINE, RS 
3 12 12 8 BNEQ 15$ ~ ?NO * CONTINUE PARSING 
0044 ; 14 BRW 50$ :YES, THEN DONE PARSING 
55 03) «491 «(0217 0 15$: CMPB #PTR_K_PARAMETR,RS SITEM TYPE PARAMETER? 
98 12 O21A 1 BNEQ 208 [NO, THEN PROCESS QUALIFIER 
56 51 7D OIC ; mova RI .R TSAVE PARAMETER DESCRIPTOR 
rs 0g CA OolF BICL (SP) [CLEAR /ALL FLAG 
EB 11 2 4 BRB [GET NEXT TOKEN 
FDD9" 30 4 5 20$:  BSBW  DCLSGETN [GET QUALIFIER NUMBER 
00000000'8F 51 01 7 6 CMPL RT PCLISK ADELK _LOG TQUALIFIER MATCH? 
13 BEQL [YES, THEN PROCESS 
00000006'8F 51 0 6 2 CMPL «1, @CLISK_DELK_STAT TQUALIFIER MATCH? 
i BEQL § TYES, THEN PROCESS 
Dis 9 40 BRB $ [GET NEXT 
6 1 ¢B 6 25$: BISL #1, (SP) UME /LOG 
CA 0 €1 BBC eptr v NEGATE-PTR_V_FLAGS.R3, 108; TENORE IF NOT /NOLOG 
6E 01 CA 02% 4 BICL #1,(SPT [CLEAR FLAG 
cS so 4 5 BRB 10$ [GET NEX 
58 D4 0247 3 30$: CLRL RB SSUME /NOSTATE 
F 53 E 49 : BBS #PTRV NEGATE=PIR V_FLAGS,R3, 108: TERRE IF NOT /STATE 
8 BA AA b 4D MOVL WRK C_RSLNXT(R10) 7RB [SAVE VALUE TOKEN PTR 
FDAC* 3] 0 32$: 8SBW DCUSGET TDV re GET NeXt DESCRIPTOR VALUE 
546 (O05: 4 1 CMPL  #PTR_K_COMMA,R4 [TERMINATOR A COMMA? 


IB 


50 
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E KEYPAD =SEP=1984 DCL.SRCJKEYPAD.MAR; 1 
7 BEQL $ :GET NEXT VALUE 
M § BRB HH GET NEXT 
8 5; 
8 § : SET KEYPAD STATE. 
a 8 S0$: ASSUME PIR NE 0 
a 39 OVI ORR’ DPRSLNKTCRIO) RESET FOR FIRST STATE VALUE 
61 361 528: 8SBW  DCLSGETDVAL :GET NEXT DESCRIPTOR VALUE 
64 6¢ MOVL : + SAVE THE - TERMINATOR 
67 63 BSBW DCLSALLOC_STATE *SET NEW STATE. 
6A 63 ? DETERMINE WHETHER DELETING ONE SYMBOL OR /ALL SYMBOLS. 
6A #! bss: gps #1, (SP) ,60$ ;BRANCH IF /ALL 
6€ ; 
re; 10 : FIND SPECIFIED SINGLE SYMBOL VALUE. 
6 rg bus mova RG, Rt 3GET DESCRIPTOR OF SYMBOL NAME 
1 37 MOVL :GET /LOG FLAG 
7% 37% BSBW beL F) RO [CHECK FOR SYNONYM KEY NAME 
77-375 MOva RICR SSAVE DESCRIPTOR IN CASE OF UNDKEY 
7A ud: BSBW DCLSFIND_KEYPAD SSEARCH FOR SY 
43 f BLBS R0,55$ SBRANCH IF SUCCESSFUL 
0 79 ; 
0 80 : OUTPUT WARNING MESSAGE. 
Q Be : BISL #4,(SP) :SET UNDEFINED SYMBOL FLAG 
BSBW  —:UNDKEY [OUTPUT UNDEFINED KEY 
4 BRB 58$ :GET NEXT TABLE 
a ? OUTPUT LOG MESSAGE IF REQUESTED. DELETE THE SYMBOL. 
83 S58: BSBW —dDELKEY sOUTPUT DELKEY MSG AND DELETE THE KEY 
0 58$: CMPL #PTR.K_COMMA,RE : TERMINATOR A COMMA? 
91 BNEQ 908 NO TIME TO EXIT 
9 9 BSBW DCLSLOCKED_STATE VES, ESTORE LOCKED KEY state 
9 9 BEF FOR E GETTING NEXT STATE 
3 34 BRB 52$ [GET NEXT STATE 
9 96; 
; $3 ; RESTORE KEYPAD STATE, SET STATUS, AND EXIT. 
9 99 $0$: | STATUS NORMAL SASSUME SUCCESSFUL COMPLETION 
9 4 9 MOVL (SP)+,R1 GET LA 
- Sar’ BBC #2,R1.95$ [BRANCH IF NO UNDEFINED SYMBOLS 
AS 4 3 MOVL #CLIS-UNDKEY!STSSM_INHIB.MSG,RO ;SET STATUS, INHIBIT RESIGNAL 
AA 403 .95$:  BSBW  DCLSLOCKED_ STATE TRESTORE KEY STATE 
AD 404 RSB 
iS 
At 4 ? t DELETE ALL SYMBOL ENTRIES FOR THE SPECIFIED OR CURRENT STATE. 
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60$: MOVAQ PRC_Q_KEYPAD(R11) ,R6 3GET ADDRESS OF KEYPAD SYMBOL TABLE | 


MOVL R6,AP~ COPY ADDRESS OF TABLE LISTHEAD 
GET NEXT SYMBOL. 
56 66 D0 40S:  MOVL _—(R6) RG 7GET ADDRESS OF NEXT ENTRY 
C p CMPL RGA AP SEND OF TABLE? 
cE BEQL «©: 58S SIF EQL YES 


IF STATE DOES NOT MATCH, THEN SKIP THIS SYMBOL. 


AB SYM_T_SYMBOL (R6) ,R4 :GET ADDRESS OF SYMBOL NAME 
MOVZBL (R4J+ Rl, GET LE NGTH OF SYMBOL NAME 
MOVAB ane) ytR1 ZGET ADDRESS OF IF_STATE 

T CURRENT STATE LENGTH/ADDRESS 


SSSCoS Omak 


MOVL PRC oL L ={URAREVRND, a2; 

MOVZBL : 

CMPB iN tal} STAT 

BNEQ oH SIF DIFF THEN GET NEXT 
CMPC ~—s- R71, (R2),, (R4) ‘STATES MATCH? 

BNEQ © 708 :NO, THEN GET NEXT 


i STATE DID MATCH. OUTPUT LOG MESSAGE IF REQUESTED. DELETE THE SYMBOL. 


MOVL R6,R3 COPY SYMBOL ADDRESS 
BSBB DELKEY sQUTPUT LOG MESSAGE AND DELETE THE KEY 
BRB 60$ GET NEXT 


Pt tt at at a MMMM NnNn eae 


WWWIWNIWNIWIWIIRoRonononononononony 3 2 2 


NOUS WN 9 OONAOUE WN" OOONOUE W000 
< 
ow 


| 
| 
| 
: 
:STATE LENGTH THE SAME? 
ST 
| 
| 
| 


Ie AEN APG ASE MMPATION UTE NESSIE BEST RY HU Rea OGM 


E 439 3+ 
4 rf 3 DELKEY = OUTPUT THE DELKEY /LOG MESSAGE AND DELETE THE SPECIFIED KEY. 
E BELKEY: sOUTPUT DELKEY MSG AND DELETE THE KEY 
14 04 Af £9 E BLBC 4(SP),80$ sSKIP IF 7NOL OG SPECIFIED 
7E ¢ A 3 £6 444 MOVAB SYM_T_ SYMBOL (R3) =(SP) ;SET ADD ASCIC STRIN 
4 DD O2EA 445 PUSHL PRC LICURRKEY (R R14) 3SET ADDRESS OF ASCIC STATE NAME 
51 D ED 446 MOVL #2,R 7SET FAO T 
50 0003D0CB 8F F 467 MOVL acl is DELKEY,RO :SET STA 
FD ¢ F 48 BSBW DCLSFORMMSG ZOUTPUT THE MESSA 
FDO3' FA 449 80$: BSBu DCLSDEALLOCSYM :DEALLOCATE KEYPAD ENTRY 


a ni ce eS 


a —--4 


| 


L 4 
slETE RAP AaReE MMUPATION wuts ESATO SESHE WRN Nae aM, 


F 452 ;¢ 
: 2 3; UNDKEY = OUTPUT THE UNDKEY WARNING MESSAGE. 
F 455 UNDKEY: sOUTPUT yea’ WARNI 
F 4 § mova R6,°(SP) 3;PUSH pe ee OF SYMBOL NAME 
4 PUSHL sPUSH DESCR ADDRESS 
48 4 8 PUSHL pec _CURRKEY (R11) 14 ADDR OF ASCIC STATE 
3 9 4 MOVL Rl” 3 FAO COUNT 
50 0003 sa F 460 MOVL ret ; a AB RO 3SET UNDEFINED SYMBOL STATUS 
re’ ° 461 BSBW athe sOUTPUT THE MESSAGE 
5E 8 1 186 ADOL sRESTORE THE STACK 
16 46 RSB ;RETURN 


j 


wa 
n 4 | 
KEYPAD = KEYPAD SYMBOL TABLE MANIPULATION ROUTI 15-SEP-1984 259: AX/VMS Macro v04-00 Page 1 
v04-000 SHOW KEYPAD SYMBOL TABLE ENTRIES 2-8-1984 S8:a1i3e EDEL RCIRE VAD RAgcd ’ B 
465 ~SBTTL SHOW KEYPAD SYMBOL TABLE ENTRIES | 
4 ° ; DCLSSHOWKEY = SHOW KEYPAD SYMBOL TABLE ENTRIES | 
4 § THIS | ROUT INE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SHOW KEYS | 
17 159 : 
if tf8 3 INPUTS: 
17 474: RB = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
17 475: R9 = ADDRESS OF SCRATCH STACK. 
17 476 ; R10 = BASE ADDRESS OF COMMAND WORK AREA. 
i ef 3 R11 = BASE ADDRESS OF PROCESS WORK AREA. 
7 479 : OUTPUTS: 
17 481: THE SPECIFIED KEYPAD SYMBOL TABLE ENTRY OR ALL KEYPAD SYMBOL TABLE 
7 4 : ; ENTRIES FOR THE CURRENT OR SPECIFIED STATE ARE WRITTEN TO THE OUTPUT 
8 Ve ; 7 3 STREAM. 
0317 485 ° 
0317 486 D DCLSSHOWKEY: : ;SHOW KEYPAD SYMBOL TABLE ENTRIES 
0317 488 ? INIT PARSE STATE. 
317 489 : FLAG BITS ARE: Q = /ALL, 1 = /BRI IEF, 2 = yfiRst STATE, 
0317 490 : = UNDKEY, 4 = /DIRECTOR 
01 oD 31) 49¢ ' PUSHL yINIT MESSAGE FLAG (ASSUME /L06) 
7E D4 0319 49 CLRL. = = (SP) [CLEAR STATE TOKEN PTR 
7E 02 00 0318 494 MOVL #2,-(SP) SINIT FLAGS (ASSUME /ALL /BRIEF) 
56 7 i ie CLRQ = R6 [ZERO DESCRIPTOR OF SYMBOL NAME 
497 ; 
: 0 498 ¢ PROCESS THE TOKENS ON THE COMMAND LINE. 
FCDD’ 30 4 9 300 10$: B8SBW  DCLSGETDVAL 3GET NEXT DESCRIPTOR VALUE 
55 04 91 03 01 CMPB ss #PTR_K_ENDLINE, RS SEND OF LINE? 
11. «13 6 0g BEQL 11% ;BRANCH iF 450 
55 03 91 8 CMPB 0s #PTR_K_PARAMETR,RS = PA 
OF 12 B 504 BNEQ 2$ * ‘BRANCH IF QUALIFIER 
D 505 ASSUME PTR y. KEYWORD EQ 21 
EF 53. 01 60 D 5 BBS 1,R :SKIP IF OPTION KEYWORD 
56 COSTCO 1 mova 40 ‘RO. SAVE DESCRIPTOR OF SYMBOL NAME 
6— 01 cs 4 8 BISL #1.(SP) SINDICATE NOT /ALL 
7 7 BRB 10§ [GET NEXT TOK EN 
007A 31 9 10 11$: BRW 20$ sAT END OF LINE. EXECUTE COMMAND 
C 12:3 
¢ 18 + PROCESS QUALIFIERS. 
Foci 30 € 515 128:  BSBW  DCLSGETNVAL :GET QUALIFIER NUMBER 
00000000 ' 8F 1 O01 F 16 CMPL R1 ,#@CLISK_SHKY_FULL :/FULL QUALIFIER? | 
48 «(13 46 1 BEQL les ‘YES, THEN PROCESS 
00000000'8F 51 pb} 4 18 CMPL 1, #CLISK_SHKY_BRIE :/BRIEF QUALIFIER? 
00000000' 8F “ : rf ! PePc . pe SHKY_DIRE YBIRECTORY QUALIFIER? 
iF 8 58 $ BEQL 4=s«4198 [YES, THEN PROCESS | 
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mn 
nm 
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rom 
ROD OOUIM DS OUVMNVIO MM SF AAAACAWS 


MOTT OCIMOMOOerOooO 


> PROCESS /LOG QUALIFIER 

lets BISL 

BICL #1,8TSP) 
10$ 


EXECUTE /DIRECTORY. 
50s: BBC #4, (SP),2 


MOVAQ prea PREVPAD(RI1), AP 
¢ 
210$: on 


P 

) 

He ed R1 

SY AP)CR1),R2 
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#1,8(SP) ASSUME /LO 
apt V_NEGATE=PTR_V_FLAGS,R3, 108’: IGNORE 14 © NOLOG 


:SET FLAG TO /NOLOG 


;GET NEXT TOKEN 
PROCESS /FULL /BRIEF AND /DIRECTORY QUALIFIERS. 


4 
OL TABLE MANIPULATION ROUTI 15-SEP-19 :59 AX/VMS Macro v04-00 Page 14 
YMBOL TABLE ENTRIES 4-SEP- 7 33:2) DCL.SRCJKEYPAD.MAR; 1 ° (7) | 
CMPL =—s-R1, #@CLISK_SHKY_LOG :/LOG QUALIFIER? 
BEQL 6-148 SYES, THEN PROCESS 
CMPL  R1,#CLISK_SHKY_STAT :/STATE QUALIFIER? 
BNEG «108 !NO, THEN IGNORE 
; PROCESS /STATE=state QUALIFIER. 
CLRL 4(SP) ASSUME /NOSTATE 
BBS #PTR_V_NEGATE-PTR LAGS, R3, 108; IGNORE IF NOT /STATE 
MOVL WRK_C_RSLNXT(R10)> Yegb AVE VALUE TOKEN PTR 
13$ BSBW © DCLSGETDVAL :GET NEXT DESCRIPTOR VALUE 
CMPL  #PTR_K_COMMA,R4 S TERMINATOR A COMMA? 
BEQL 6:13 [GET NEXT VALU 
BRB 10$ “GET NEXT 
4 
4 
4 
4 
4 
4 
4 


i6$:  BICL #2, (SP) yASSUME /FULL 
BBC #PTR V_NEGATE-PTR_V_FLAGS.R3,10$: IGNORE IF NOT /NOBRIEF 
BISL #2,(SPY "SET FLAG 
BRB [GET NEXT 

18$: BISL #2,(SP) “ASSUME /BRIEF 
BBC #PTR_V NEGATE-PTR_V_FLAGS R3, 1908: 1GNORE It NOT /NOBRIEF 
BICL #2,(SPY ;CLEAR F 
BRW 'GET N NEXT 

19$: BISL ASSUME /DIRECTO 
BBC opTk. : NEGATE= -PTR_V_FLAGS,R3, 1908: IGNORE IF NOT TNODIRECTORY 
BICL #6, TSP) ;CLEAR FLAG 

190$:  BRW :GET 


ORY 
AD SYMBOL TABLE 


T 
P 
pe sci ton 


YD =D D- 
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=m 


=~ 


SCRIPTOR 
PUT THE STATE 
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KEYPAD - KEYPAD SYMBOL TABLE MANIPULATION ROUTI 15-SEP-1984 23:59:38 VAX/VMS Macro V04-00 Page 15 | 
v04=000 SHOW KEYPAD SYMBOL TABLE ENTRIES 4-SEP-1984 g at LOCL SRCIREYPAD MAR: 1 . (7) | 
51 8 7D 4 579 MOVQ = (SP) +,R1 sRESTORE STATE DESCRIPTOR 
3 11 E+ 0 BRB 2108 ‘YES, THEN SKIP 
1 F gp £9 3158: MOVa SP)+.R1 TRESTORE STATE DESCRIPTOR 
6 p EC : 20$: MOVQ R1,R6 SSAVE NEW STAT 
FCOE’ 3 EF BSBW DCL SHSGOUT ‘OUTPUT THE STATE 
CE 11 O3F2 4 BRB 10$ 'GET NEXT STAT 
3 DS O3F4 5 230$: TSTL (SP) SRESTORE THE STACK 
49 «17 F $ BRB 90$ SEXIT 
F 3 
F e» t SET KEYPAD STATE. 
F 3 : ASSUME PTR_K_COMMA NE 0 | 
BA AA 04 AE 00 F 36 21$:  MOVL  4(SP)TWRK_L_RSLNXT(R10) :RESET FOR FIRST STATE VALUE 
A 13 O3FD 59 BEQL 238 iSKIP IF NONE | 
FBFE’ 30 O3FF 594 228: BSBW  DCLSGETDVAL [GET NEXT DESCRIPTOR VALUE 
04 AE 54 b0 402 595 MOVL  R4,4(SP) SSAVE THE TERMINATOR 
0388 30 0406 236 BSBW  DCLSALLOC_STATE ‘SET NEW STATE 
0108 298 : DETERMINE WHETHER DISPLAYING ONE SYMBOL OR /ALL SYMBOLS. 
51 6E £9 0409 600 238: LBC (SP),40$ sBRANCH IF /ALL 
040¢ 601 
040C one $ 
940¢ 603 : DISPLAY SPECIFIED SINGLE SYMBOL VALUE. 
51 56 7D 040C 605 mova :GET DESCRIPTOR OF SYMBOL NAME 
50 08 AE p0 040F 606 MOVL  8(SP),RO 'GET /LOG FLAG 
0238 30 0413 607 BSBW § DCL$SYNONYM :CHECK FOR SYNONYM KEY NAMES 
56 51 7D 0416 608 MOVa , SSAVE DESCRIPTOR IN CASE OF UNDKEY 
o2te 30 0419 609 BSBW DCL$FIND_KEYPAD ‘FIND SPECIFIED SYMBOL 
1150 €8 041C 610 BLBS R0O,35$ ‘BRANCH IF FOUND 
O41F 611 
O41F ol¢ g 
O6iE 613 : OUTPUT WARNING MESSAGE. 
05 6E 02 ES O41F 615 BBCS #2,(SP),33$ :SKIP BLANK LINE IF FIRST LINE 
51 C 0433 616 CLRQ sR :SET NULL STRING 
FBD8*' 30 0425 617 BSBW  DCLSMSGOUT ‘OUTPUT THE BLANK LINE 
6— 08 (C8 0428 618 338: BISL 4#8,(SP) :SET UNDEFINED SYMBOL FLAG 
FEDO 30 0428 619 BSBW NOKEY ‘OUTPUT UNDEFINED KEY MSG 
06 11 04 F 620 BRB 8$ ‘GET NEXT TABLE 
4 621 | 
4 8 6 § ; | 
‘ 6 3: DISPLAY THE SYMBOL DATA. 
0150 30 be Q 625 $5$: BSBW  DISPHDR sDISPLAY KEYPAD TABLE NAME | 
0060 30 04 626 BSBW 32S s«éDXSPS MB [DISPLAY THE SYMBOL DATA | 
04 AE 05 D1 0436 627 388: CMPL #&#PTR_K_COMMA,4(SP) S TERMINATOR A COMMA? 
05 12 43A 628 BNEQ :NO, TIME TO EXIT | 
FBC1® 30 043C 629 BSBW = DCLSLOCKED_STATE [YES, RESTORE LOCKED KEY STATE | 
43F 630 : BEFORE GETTING NEXT STATE 
BE 11 O43F 631 BRB 22$ ‘GET NEXT STATE 
ci 638 | 
44 é 4 : RESTORE KEYPAD STATE, SET NORMAL STATUS, AND EXIT. | 
| 


Io 


= KEYPAD SYMBOL TABLE Hah Ti 


Tl 
SHOW KEYPAD SYMBOL TABLE ENTRIES 


4 90$: STATUS 
2] § DO 044 é $ MOVL 
07 51 E1 0448 6 BBC 
50 10038260 &F 6 MOVL 
E08, 640 958: ADDL 
FBAG 641 BSBW 
64 RSB 


64 
644 ; 


¢ 5 
ON ROUTI 15-SEP-1984 
4-SEP=1984 


NORMAL 


§3P)7°8 


#6, 
DCLSLOCKED_STATE 


AX/VMS 
DCL.SRC 


»R1.95$ 
#CLIS“UNDKEY!STSSM_INHIB_MSG,RO ; 


ws 
AAC VAC Mo 


mrm 


YPAD.MAR; 1 
CCESSFUL COMPLETION 


UNDEFINED SYMBOLS 
a” + RESIGNAL 


coll 


I 
STA 
s 


oe? ; DISPLAY ALL SYMBOL ENTRIES FOR THE SPECIFIED OR CURRENT STATE. 


sDISPLAY KEYPAD TABLE NAME 
GET ADDRESS OF KEYPAD SYMBOL TABLE 
COPY ADDRESS OF TABLE LISTHEAD 


GET ADDRESS OF NEXT ENTRY 
END OF TABLE? 


sIF EQL YES 


2GET ADDRESS OF SYMBOL NAME 
;GET MB 


STATES MATCH? 
:NO, GET NEXT STATE 
:NO, GET NEXT SYMBOL 


SET ADDRESS OF SYMBOL 
FORMAT AND OUTPUT ENTRY 
GET NEXT 


Aor 
38 
45¢ 
450 
490 
45D 
450 646 
45D 64 ios:  esBw DISPHOR 
460 4g MOVAQ PRC Q_KEYPAD(R11),R6 
464 64 MOVL 6, AP 
0467 650 
raed 2) : GET NEXT SYMBOL 
0467 $3 : 
0467 654 50$:  MOVL (R6),R6 
046A 655 CMPL = R6, AP 
0460 656 BEQL «6-38 
046F 657 
046F 658 : 
O46F 659 : If STATE DOES NOT MATCH, THEN SKIP THIS SYMBOL. 
O46F 661 MOVAB SYM_T_SYMBOL(R6) ,R4 
0473 66 MOVZBL (R43+~R1 
0476 66 MOVA’ 2cR4) R13, RG 
047B 664 MOVZBL (R4)+ 
O47 665 MOVL PRC_L. CURRKEY(R11) ,R2 
Be 666 MOVZBL (R2T*-R1 
0485 667 CMPCS. RI (RS), #0,RO, (R4) 
0488 668 65$ BLSS  38$ 
0480 669 GTR 50$ 
48F 670 
048F 671; 
048F 672 : STATE DID MATCH. DISPLAY THE SYMBOL. 
048F 673: 
048F 674 70$:  MOVL  R6,R3 
0492 675 BSBBss«é&D SPS MB 
0494 676 BRB 50$ 


ro V04-00 Pp 16 | 
eee 0) | 
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KEYPAD - KEYPAD SYMBOL TABLE MANIPU LATION ROUTI 15-SEP-1984 £59: 3 VAX/vits Macro v04-00 Page 
04-000 SHOW KEYPAD SYMBOL TABLE ENTRIES arse ebe Seiza ise POA MRS Macro you=0O. ° 
496 678 + 
3 679 : DISPSYMB = DISPLAY THE VALUE AND ATTRIBUTES OF A GIVEN KEYPAD SYMBOL. 
49 é 1 INPUTS: 
496 6 ¢ : 4(SP) = FLAGS LONGWORD - BIT 1 IS SET IF /BRIEF 
496 68% ; RS = ADDRESS OF SYMBOL TABLE ENTRY 
49 6 5 RB = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
496 6 $; : R9 = ADDRESS OF SCRATCH STACK. 
496 6 : SISPSYMB s FORMAT A. SYMBOL 
50 04 AE 00 0496 6 OVL 4(S 'GET THE FLAGS 
02CO BF BB 049A 690 PUSHR #*M<R6,R7,R9> + SAVE REGIST 
68 DD 049E 691 PUSHL (RB ;SAVE SCRATCH DESCR LENGTH 
3 DD 04A 69¢ PUSHL RB SSAVE ADDR OF SCRATCH DESCR 
58 50 D0 O4a2 69 OVL RO,R8 [COPY THE FLAGS 
tas 698 
O4Ad 636 ? GET AND SAVE DESCRIPTOR OF SYMBOL NAME. 
52 OC A3 9E 0405 698 ° MOVAB Sym T SYMBOL (R3) , R2 :POINT TO SYMBOL NAME 
51 82 9A 0449 699 MOVZBL (R23+ [GET NAME LENGTH 
79 51 7D O4AC 700 mova so thS) SBUILD NAME DESCRIPTOR 
57 59 00 O4ar 701 MOVL Rg. R? [COPY SCRATCH STACK POINTER 
48 703 ; 
4B 204 : GET AND SAVE DESCRIPTOR OF SYMBOL VALUE. 
52. 02 A261 9E 0482 706° MOVAB 2(R2)CR1),R2 :GET ADDRESS OF IF STATE LENGTH 
51 82 9A 0487 70 MOVZBL (R2)+,R1 [GET LENGTH O 
52. 6241 9E O4BA 708 OVAB. (R CRIA, R2 [GET ADDRESS OF SYRBOL VALUE LENGTH 
51 82 C 04BE 709 MOVZWL (R2) [GET LENGTH/ADDRESS OF VALUE 
79 51 7D O4Ci 710 MOVa sR, 188) SSAVE VALUE DESCRIPTOR 
56 D0 bate At MOVL R9.R6 :COPY SCRATCH STACK POINTER 
0407 713; 
O4c? i ; GET AND SAVE DESCRIPTOR OF SET_STATE STRING. 
52. 6241 9E 04C7 716° OVA tO »R2 tan ADDRESS 0 OF SET_STATE LENGTH 
eh HM RE He BVM Been Mnetgageg Or Sta 
51 D4 bibs 719 CLRL 4e susn wut STRING 
79 51 7D 0404 720108: MOVd  R1,-(R9) SSAVE STATE DESCRIPTOR 
55 59 00 407 , : MOVL  R9.RS [COPY SCRATCH STACK POINTER 
4DA 723; 
ADA f 4: : CREATE AND SAVE DESCRIPTOR OF ASCIC FAO STRING. OUTPUT WILL LOOK LIKE: 
4DA f 6 : symbol = "value" (ECHO, TERMINATE ,ERASE ,LOCK, STATE=state) 
52 £B48 CF 96 O4DA 7 : : MOVAB FULLEAQ,R2 TASSUME FULL DISPLAY 
558 01 a 40F 7 BBC 6s ?SKIP IF /NOBRIEF 
52 FB31 CF SE O4E3 730 MOVAB phe R2 ‘SET BRIEF DISPLAY 
31 é 9A 048 731 208:  ##$MOVZBL ( 1 [MAKE INTO DESCRIPTOR 
9 7D 0468 7 : MOVG Fora) SAND PUSH ONTO STACK 
4 59 pO O4€E 7 MOVL 9: RG [COPY SCRATCH STACK POINTER 
2158 01 €0 O4F1 734 BBS #1.R8, 308 ?SKIP IF /BRIEF 


—e § 
KEYPA = KEYPAD SYMBOL TABLE MANIPULATION ROUTI 15-SEP-1984 23:59:38 VAX/VMS Macro v04-00 Page 18 | 
We 080 SHOW KEYPAD SYMBOL TABLE ENTRIES 273E= 1382 33:27:38 YOCL  SRCIREYPAD MARS? . 18) 
sts 735 | 
af ; $ CREATE FAO PARAMETER LIST. ASSUME NO ATTRIBUTES. | 
79. «55 p0 4F5 7 § 5 MOVL R5,=(R9) rSET ADDR OF STATE DESCR 
79 FB74 CF SE O04FB 740 MOVAB NULL, -(R9) ZASSUME STATE FLAG NOT SET 
79 +FBOF CF QE O4FD 741 MOVAB *=(R9) ZASSUME STATE FLAG NOT SET | 
79 FROA CF 9E $0¢ fae MOVAB NULL, -(R9) SASSUME LOCK FLAG SET 
79 B65 CF 9E 30 74 MOVAB L.=(R9) SASSUME ERASE FLAG SET 
79 F860 CF SE f 744 MOVAB NULL, -(R9) SASSUME TERMINATE FLAG SET 
79 FB BCF 9E 051 745 MOVAB NULL.-(R9) SASSUME ECHO FLAG SET 
7 5 D 1 246 30$:  MOVL R6,-(R9) [SET ADDR OF VALUE DESCR 
79 DO «051 74 MOVL  R7,=(R9) ‘SET ADD 
57 59 »D 31¢ 48 MOVL R9,R7 :SAVE ADDRESS OF PARAMETER LIST 
SiF 750; 
a 131 : NOW RESET FAO ARGUMENTS FOR ANY ATTRIBUTES THAT WERE ABSENT. 
03 58 91 éI 081" Fg ; BBC #1,R8,40$ :SKIP IF /NOBRIEF 
003D «(31 3 3 138 BRW 90$ :BRANCH IF /BRIEF 
09 E0 82 6 756 40$: BBS #SYM_V_ECHO,- :1S ECHO SET? 
98 A 09 757 SYM_6 _FLAGS(R3) ,50$ : 
08 Ao «6FB37 CFO9E 2 8 £28 MOVAB NO,8(R9) : 
01 €0 82 1 760 50S: BS #SYM_V_TERMINATE,- :1S TERMINATE SET? 
06 0B A3 0533 761 SYM : FLAGS(R3) ,60$ : 
OC AD «=FB2C CF OE 03 6 16¢ MOVAB NO,T2TR9) : 
04 £0 $336 764 60$: BBS #SYM_V_ERASE,- :1S ERASE SET? 
06 0B A3 O53 765 sym 6 FLAGS(R3) ,708 : 
10 A9 «= FB21 CF OSE 341 766 MOVAB NO, T6TRI) F 
03 EO Tre 768 70$: BBS #SYM_V_LOCK,- :1S LOCK SET? 
06 0B A 0549 769 SYM_6 FLAGS(R3) ,80$ : 
14 A9 FBIO CFE 9E O>4¢ £20 MOVAB NO,20TRO) ; 
02 E1 0386 Ak: 80$: BBC #SYM_V_STATE,- s1S STATE SET? 
OC 0B A 554 «77 SYM_B_FLAGS(R3) ,90$ ; 
18 A9 FBI6O CF 9E 0557 77% MOVAB COMMA724(R9) : 
1C AD «= FBOB CFOS 035 775 MOVAB STATE.28(R9) : 
aes HS 
36 178 : FORMAT AND OUTPUT THE MESSAGE | 
58 8EDO 0563 780 90$: POPL RB SRESTORE SCRATCH DESCRIPTOR | 
36 781 SFAOL_S (R4), (RB), (RB), (R7) [FORMAT OUTPUT 
51 68 7D 05 : 7 ; MOV ~ (R8)-R1 [GET OUTPUT MESSAGE PARAMETERS | 
FA8S' 30 0578 7 BSBW DCLSMSGOUT SOUTPUT THE MESSAG 
68 BED0 0578 784 POPL (RS) SRESTORE SCRATCH DESCR LENGTH 
02c0 8F BA a7E 785 POPR #*M<R6,R7,R9> SRESTORE REGISTERS 
5 0582 786 RSB T RETURN 


F 5 
KEYPA = KEYPAD SYMBOL TABLE MANIPULATION ROUTI 15-SEP-1984 23:59: AX/VMS Macro v04-00 Page 19 | 
Whe 0b0 SHOW KEYPAD SYMBOL TABLE EN RIES 2786-1383 $3:27:38 Yoel SRCJKEYPAD.MAR; 1 ad (9) 
8 3+ 
78s : DISPHDR = DISPLAY A KEYPAD TABLE HEADER 
$3 3 INPUTS: 
5 93; 4(SP) = FLAGS LONGWORD = BIT 2 IS CLEAR IF FIRST TABLE 
5 9% ;: Rg = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
5 95: R9 = ADDRESS OF SCRATCH STACK. 
: £98 3 PRC_L_CURRKEY(R11) = ADDDRESS OF ASCIC TABLE NAME 
5 738 BISPHOR: :DISPLAY KEYPAD TABLE HEADER 
05 04 AE ; 53 3 79 BBCS #2,4(SP) 108 'SKIP BLANK LINE IF FIRST HEADER 
f 00 CLRQ oR [SET NULL 
FA 3" 3 38A 01 BSBW $DCLSMSGOUT S OUTPUT THE BLANK LINE 
68 dD 058D 0¢ 10$:  PUSHL (RB) i SAVE BUFFER SIZE 
S52 FAGD CF 9E 38 0 MOVAB SHOWHDR,R2 :GET ADDRESS OF Ascic FAO STRING 
51 2 9A 0594 804 MOVZBL (Re)+ Ri MAKE INTO DESCR IPT 
? 1 7D 0597 805 ova 1,-(§P) PUSH ONTO 
5 E D0 059A 806 MOVL g {SAVE ITS ADDRESS 
51 48 AB % 0590 807 @OVAB PRCE_L_CURRKEY(R11),R1 iGET ADDRESS OF ASCIC STATE 
05A1 808 SFAO_S (ROT, TRB), (RB), (RIS SFORMAT OUTPUT ME 
51 68 7D 0580 809 MOVa [GET OUTPUT MESSAGE MOARAMETERS 
FAGA' 30 058 10 BSBW DeLSASGOUT ‘OUTPUT THE MESSAGE 
SE 08 CO 0586 811 ADDL SP SRESTORE THE STACK 
68 8& 00 0589 le MOVL  (SP)+,(RB) :RESTORE BUFFER SIZE 
05 O058c 81 RSB SRETURN 
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TRY IN KEYPAD SYMB 4-SEP-1984 DCL.SRCJKEYPAD.MAR; 1 
«SBTTL ALLOCATE AND INSERT ENTRY IN KEYPAD SYMBOL TABLE 
DCLSALLOCKEY = ALLOCATE AND INSERT ENTRY IN KEYPAD SYMBOL TABLE 


THIS vg fly IS CALLED TO ALLOCATE AND INSERT AN ENTRY IN THE KEYPAD 
SYMBOL TABLE. 


INPUTS: 


Rg = KEYPAD FLAGS 
RY = ADDRESS OF BUFFER FORMATTED AS FOLLOWS 


(R9) = etry OF SYMBOL VALUE 
$in) = DESCRIPTOR OF SYMBOL NAME 
6(R9) = DESCRIPTOR OF SET_ STATE NAME 


R11 = ADDRESS OF PROCESS WORK AREA 
PRC_L_CURRKEY = STATE IN WHICH KEY IS TO BE ALLOCATED 


OUTPUTS: 


> 


THE KEYPAD TABLE IS SEARCHED FOR. THE SPECIFIED fit AND IF F 
THE OLD ENTRY IS DEALLOC ATED. SYMBOL T 18 THEN TALLOCATED, 
FILLED WITH THE SYMBOL, VALUE, An STATE MOLE ORATION AND T 
INSERTED IN THE SYMBOL TABLE. 
RO LOW BIT CLEAR INDICATES ALLOCATION FAILURE WITH CLIS_SYMOVF . 
RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION 
R1,R2.R3.R4,R5 ARE DESTROYED. 


DCLSALLOCKEY:: 
DISABLE sDISABLE CTRL/Y'S 
CLRQ (SP)+ REMOVE RETURN INFO FROM STACK 


IF F 


SEARCH FOR PREVIOUS DEFINITION OF IDENTICAL SYMBOL. 
SPO TO INSERT oun Nee SYMBOL 


BSALLOCATE IT. FIND THE T IN THE LINKED LIST 


va = 8 (RO) SET SYMBOL NAME DESCRIPTOR 
BSBW ott in _KEYPAD TSEARCH FOR SY 
BLBC RO, 108 TIF LBC SEARCH FAILURE 
MOVG = R1.=( SP) ‘SAVE RI/R 
BSBU sé SD DEA LOCSYM :DEALLOCAT KEYPAD ENTRY 
vQ (SP) [RESTORE 
BSBW —s-«éCLSF FIND _KEYPAD SEARCH FOR SYMBOL 


? CALCULATE SIZE OF NEW SYMBOL AND ALLOCATE IT. 


10$: § MOVL PRC gfURRKEYCRI1D, JI 3GET ADDR OF ASCIC IF_STATE 
MOVZBL SGET LENGTH OF IF_STATE 
ADDL Oras R1 [ADD IN SET_STATE LENGTH 
ADDL (R9) RI [ADD IN VALOE LENGTH 
ADDL bert [ADD IN SIZE OF LENGTH FIELDS 


6 5 
TABLE MANIPULATION ROUTI 15-SEP-1984 8 YAX/VMS Macro v04-00 P 
ALLOCATE ND Tise ERT EN t 33:27 34 t EvP — 50). 


H § 
= KEYPAD Syme OL T MANIPULATION ROUTI 15-SEP-1984 23:59:38 VAX/VMS Macro ¥04=00, Pa 1 
ALEDCATE AND THSERT ENTRY IHCRETPAD SURE "EnSEpedobe S8:ar see POR acter eas Rages ee 
51D EC 87 PUSHL 1 :SAVE FOR FUTURE USE 
51 08 Ad eB E 8 ADDL 8(R9),R1 [ADD IN META“KEY LENGTH 
51 f C F 74 ADDL #SYM_f_SYMBOL+3,R1 3ADD_IN FIXED OVERHEAD 
b F 75 PUSHL R TSAVE SYMBOL TABLE PTR 
FA06' F i: BSBW  DCLSALLDYNMEM SALLOCATE DYNAMIC R 
BED FA 87 POPL R SRESTORE SYMBOL TABLE PTR 
47 E F A: BLBC ~=—-—s«aR 0, 90 tIF LBC ALLOCATION FAILURE 
; 0; 
: 1 : IWITIALIZE THE STATICALLY PLACED FIELDS AND INSERT IT IN THE LINKED LIST. 
BA 1 j ; MOVW R1,SYM_W_SIZE(R2) :SET SIZE Aor pALLOCATED BLOCK 
A 6 504 4 nove RG. SVR_B FLAGS(R2) [SET KEYPAD FLAGS 
AA 4 608 5 MOVB EYPAD,SYM_B_TYPE(R2) 3SET KEYPAD ORL OE TYPE 
0483 62 $0 6 INSQUE SYR. C_FL(R2) ,@SYM~L~BL(R3) SINSERT ENTRY IN SYMBOL TABLE 
51 3 
1 89 : INITIALIZE THE DYNAMICALLY PLACED ASCIC FIELDS. 
53 08 Ad 61 91 mova 8 RO) ,R3 :GET SYMBOL NAME 
OC a2 33 514 3 MOVB »SYM_T_SYMBOL (R2) T INSERT LENGTH OF SYMBOL 
OD A264 aie 3 MOVC *(R4S, SYM_T 1. SYMBOL*1(R2) S INSERT SYMBOL NAME 
83 BE 61D 95 CVTLW (SP)+, (R3)4 SINSERT LENGTH OF FOLLOWING 
52 48 AB 8 35 MOVL pac L ~CURRKEY (R11), R2 :GET CURRENT STATE LENGTH/ADDRESS 
51 B2 524 898 MOVZBL t+" 'GET LENGTH OF STRING VA 
83 51 627 «= «899 MOVB Ney IN SERT LENGTH OF STRING VALUE 
63 62 51 A 300 MOVE = R17, (RZ), (R3) TINSERT STRING VALUE 
51 69 bOE 8 MOva —- (R9) RI :GET SYMBOL VALUE 
83 51 631 MOVW Ri. (R3)* : INSERT OENGYHe OF STRING VALUE 
63 62 51 4 904 MOVE ——-R1. (RZ), (R3) SINSERT STRING VALUE 
51 10 a9 : 906 MOVQ =: 16(R9) ,R1 3GET SET_STATE VALUE 
83 3 b3c «90 MOVB = R1,, (R354 : INSERT CENGTH OF STRING VALUE 
63 62 51 F 908 MOVC ——-R1. (RZ), (R3) TINSERT STRING VALUE 
50 01 i 910 MOVL #1,R0 :SET SUCCESS INDICATOR 
: 4 911 RSB : 
647 318 
547 a RETURN SYMBOL TABLE OVERFLOW STATUS. 
BE 547 1 $: STL (SP)+ sRESTORE THE STACK 
669 91 STATUS SYMOVF [SET SYMBOL TABLE OVERFLOW STATUS 
05 0650 918 RSB 


es = KEYPAD SYMBCL TABLE MANIPULATION rduti i a $60- 138% 33:2 9:38 AX/VMS Macro V04-00 Page 3, 


CHECK FOR SYNONYM KEY NAMES P=19 DCL. SRCJKEYPAD.MAR; 1 
pe .SBTTL CHECK FOR SYNONYM KEY NAMES 
; DCLSSYNONYM = CHECK FOR SYNONYM KEY NAMES 
651 4 THIS ROUTINE IS CALLED TO DETERMINE WHE THER OR NOT THE KEY NAME INPUT | 
651 5 : HAS A SYNONYM NAME IF SO, IT TRANSLATES THE KEY NAME TO A COMMON KEY NAME 
651 $; + FOR THAT PARTICULA KEY Gnicn” ne THEN USED IN CONSTRUCTING THE KEYPAD 
651 ; SYMBOL TABLE. IF ‘0G 1§ SPECIFIED IN THE COMMAND L A CONVERS ION MESSAGE 
651 g ; : 1S OU Pur INDICATING WHAT THE SYNONYM KEY WAS CHANGED Oto IN IN THE KEYPAD | 
: ; SYMBOL TABLE. | 
551 ; 
; INPUTS | 
651 4: RO = /LOG FLAG (LBS = /LOG, LBC = /NOLOG) | 
651 3 5: Rl = LENGTH OF ENTERED KEY NAME 
p31 5 ; R2 = ADDRESS OF ENTERED KEY NAME 
31 ‘ ; + OUTPUTS 
$51 940 IF SYNONYM FOUND: | 
51 94¢ : = LENGTH OF TRANSLATED KEY NAME 
5143 : BD e KSDR OF TRANSLATES KEY NAME | 
31 8e8 | 
31 346 : If SYNONYM NOT FOUND: | 
51 348 : R1 UNCHANGED 
51 949: R2 UNCHANGED 
51-950: 
a gL 
$51 328 DCLSSYNONYM: : 
7E 56 7D 0651 954 MOVQ R6,-(SP) SAVE WORK REGISTERS 
7E 50 DO 0654 955 MOVL  R0.-(SP) SSAVE / 
56 FAIS CF 9E 637 936 MOVAB SYNNAME_TAB,R6 GET abbr oF SYNONYM TABLE 
57 66 9A ui $38 10$: MOVZBL (R6),R7 GET LENGTH OF THIS ENTRY 
2A 13 065F 95 BEQL 1008 TEXIT IF NO MATCHING ENTRY FOUND 
57. 51 8} 661 960 CMPW) =SsaR}1,R7 [DOES THE LENGTH MATCH TRIS ENTRY? 
F 12 0664 961 BNEQ ©. 408 3NO, SKIP TO NEXT ENTRY IN TABLE | 
3 1 7D 566 6¢ mova oR mite [SAVE POINTERS | 
0106 57 00 6 1 0 6 CMPCS 1. (R2),#0,R7,1(R6) i1s < THERE A MATCH ON THIS ENTRY? 
A BEQL GET NEW KEY NAME FROM TRANSLATION TABL | 
51 8— 7D i $e MOVG (SP)+,R1 RESTORE POINTERS 
56 03 A647 H 57 § 40$:  MOVAB 3(R6)CR7),R6 :MOVE TO NEXT ENTRY IN SYNONYM TABLE 
£0 1 7A 968 BRB 10$ | 
7 , : HAVE FOUND A MATCH IN SYNONYM TABLE. GET ACTUAL KEY NAME FROM TRANSLATION TABLE. | 
1 8 2D 57¢ re $0: mova  (SP)+.R :RESTORE POINTERS | 
56 01 A64 b7F O97 MOVAB {erastey3. R6 [GET ADDR. OF OFFSET INTO TRANS. TABLE 
6 66 3C 0684 97% MOVZWL ( iGET ACT UAL OFFSET | 
56 OFA 8 CF4 —E 0687 975 MOVAB  SYNDEF_TABLR6),R6 GET OF COMMON KEY NAME STRING 
51 7) 068D 976 MOVa  RI,R ? SAVE MPRTERED KEY NAME FOR CONV. MESSAGE. 
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: 


5 
= KEYPAD SYMBOL T MAN AT ow ROUT] 15-SEP-1984 23:59: 
S L TABLE IPULATI OUTI : “3 138 § 29:3 


pares Gece v04-00 
K 


CHECK FOR SYNONYM KEY NAMES -SEP=1984 DCL. SRCJKEYPAD.MAR; 1 
77 MOVZBL (R )+,R1 :FORM DESCRIPTOR FOR TRANS. NAME 
, MOVAB ),k2 ; 
: output CONVERSION MESSAGE IF /LOG SPECIFIED 
BLBC ‘ p) 1008 SKIP MESSAGE IF /NOLOG 
SUBL MA TEMPORARY SCRATCH BUFFER 
i MOV 4 16,88 GET TRANSLATED K KEY NAME 
5 mMOVa = RS BisP) 3GET ENTERED KEY NA 
6 PUSHAB (SP) Set ADDR. OF KEY NAME 
PUSHAB 12(SP) “SET ADDR. OF ENTERED KEY NAME 
8 MOVL  #2,R1 [SET AR T COUNTER 
MOVL acts KEYCNV,RO SET CONVERTED KEY sta 
0 BSBW © OCLSFORMMSG [OUTPUT CONVERSION M 
1 MOVa (SP),R1 SRESTORE TRANSLATED DESCRIPTOR 
a8 ADDL #16,SP SREMOVE TEMPORARY SCRATCH BUFFER 
4 100$: TSTL (SP) :REMOVE  / LOG FLAG 
995 MOVG (SP)+,R6 REST ORE WORK REGISTERS 


7 | 
KEYP = KEYPAD SYMBOL TABLE MANIPULATION ROUTI 15-SEP-1984 AX/VMS Hee ro v04-00 P 4 
¥54-000 SEARCH FOR SYMBOL ENTRY IN KEYPAD SYMBOL 4-S Pa 1984 33:2 i DCL SRCIKE YPAD.MAR; 1 ao (33) 
«SBTTL SEARCH FOR SYMBOL ENTRY IN KEYPAD SYMBOL TABLE 


DCLSSEARCH_KEYPAD = SEARCH FOR SYMBOL ENTRY IN KEYPAD SYMBOL TABLE 
THIS ROUTINE IS CALLED TO SEARCH THE KEYPAD SYMBOL TABLE FOR AN ENTRY. 


R11 = ADDRESS OF PROCESS WORK AREA 


| 

| 

R1 = LENGTH OF SYMBOL. | 
R2 = ADDRESS OF SYMBOL. 
| 

| 

| 

| 

| 

| 

| 


o Se Se Se Se Ge Se Ge Se Ge Se Ge Ge Ge Se Ge Se Se Se Se Se Sets 
+ 


C1 
C1 
C1 
ef 
(1 1 g 
C1 1004 
C1 1005 
oe 5 
¢i 1 
ry 
fj 
6c! OUTPUTS: 
me % ig RO = STATUS 
C1 1014 RI/R2 ; MQUADWORD DESCRIBING SYMBOL VALUE: 
6C1 1015 IF R NONZERO, QUADWORD IS A STRING DESCRIPTOR 
6Ci 1 1 IF Re ZERO, R1 IS A BINARY LONGWORD VALUE 
6C1 101 R3 = ADDRESS OF SYMBOL ENTRY 
= 
C1 101 R4 = KEYPAD FLAGS 
6C1 101 
e183? & 
6C1 10 : CLSSEARCH_KEYPAD:: :SEARCH FOR SYMBOL ENTRY IN KEYPAD TABLE 
18 «(10 6c} 10 BSBB DCLSF IND. KEYPAD i SEARCH KEYPAD SYMBOL TABLE FOR ENTRY 
1750 €9 cs 4 BLBC :I1F LBC NO MATCH FOUND 
51 OC Ad. 9A Oeee 19 : MOVZBL SYM_ 1 _SYMBOL (R3) “GET LENGTH OF SYMBOL 
52. OF A341 SE O6CA 1 MOVAB. SYM TISYMBOL #3°R RSL Rat). Re “GET ADDRESS OF IF STATE LENGTH 
51 82 9A O6CF 1028 MOVZBL (R23¢7R1 GET LENGTH OF IF_STR 
52. 6241 9E 06D2 1029 MOVAB. (R sck1), R2 [GET ADDRESS OF yWALUE LENGTH 
82 2C 06D6 1030 MOVZWL (R2)4,R1 [GET LENGTH OF 
54° OB AS 9A 0609 193 MOVZBL SYM_B.FLAGS(R3),R4 [GET KEYPAD ot aggre 
05 ret 10 § 10$ RSB : 


| 


IR 
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DE 
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DE 
53 40 9 O6bE 
“s 5 
6E 
6E 
Bog et i 
3 3 SEB 
ED 
6ED 
ED 
5 OC _A3 BA EF 
54 oF A341 9E 3 
0, 84 9A F 
52. 48 0 O6FB 
50 = 00 a2 ; 3D * 
1 os 


9: AX/VMS Macro v04-00 
MBOL TABLE FOR ENTRY 4-SEP 73 DCL SRCIKEYPAD MAR; 1 


5 r «SBTTL SEARCH KEYPAD SYMBOL TABLE FOR ENTRY 
DCLSFIND_KEYPAD = SEARCH KEYPAD SYMBOL TABLE FOR ENTRY 


THIS ROUTINE IS CALLED TO SEARCH THE KEYPAD SYMBOL TABLE FOR AN ENTRY. 
ONLY DEFINITIONS FOR THE PRC_L_CURRKEY STATE ARE CHECKED. 


INPUTS: 
Ri = LENGTH OF SYMBOL NAME. 
Re = ADDRESS OF SYMBOL NAME. 
R11 = ADDRESS OF PRC DATA STRUCTURE 
PRC_L_CURRKEY = CURRENT KEY STATE 


RO LOW BIT CLEAR INDICATES SEARCH FAILURE. 

Ri = LENGTH of Rts! NAME. 

mS = ADDRESS YMBOL NAME. 

ADDRESS OF NEXT GREATEST SYMBOL ENTRY. 

R4 ARE DESTROYED. 

RO LOW BIT SET INDICATES SYMBOL FOUND WITH: 

Ri = LENGTH OF SYMBOL NAME. 

“° = ADDRESS OF SY 


MBOL NAME. 
= ADDRESS OF SYMBOL ENTRY. 
R4 IS DESTROYED 


eieeeaieaiade 

: : SET ADDRESS OF SYMBOL TABLE. 

MOVAB PRC_Q_KEYPAD(R11),R3 
MOVL R3,RO :COPY ADDRESS OF SYMBOL TABLE 


SEARCH FOR THE SPECIFIED SYMBOL. 


ios: mov. SYM b-FLCRS) .R3 ;GET ADDRESS OF NEXT ENTRY 
CMPL = ROR :END OF TABLE? 
BEQL TIF EQL YES 


THAT THE SYMBOL STATE MATCHES. 


#°M<RO,R1,R2 RP sSAVE SEARCH PARAMETERS 
Syn T_SYMBOL(R3) .R1 GET LENGTH OF SYMBOL 
ee Ri: GET ADDRESS OF IF_STATE LENGTH 
‘ :GET IF STATE LENGTH™ 
PR sb- -¢ RRKEY(R11) ,R2 3GET CURRENT STATE LENGTH/ADDRESS 
A (RO) ,#0,RO, (R4) SSTATES MATCH? 
a 14h) R1,R2,R3> TRESTORE SEARCH PARAMETERS 


Setee 
oO 
=x 
m 
oO 
x 


i at ER le en ty SAB ROS items i Shaan 
@e 


ee ce ce ce ce ce ce ee ce ce ce ee ce ce cee ce ce ce ce ee cee ce ce ce ee ce ce ee ce ce ce cee ce ce ce ce ce ee ce ce ce ee cee ee ee ee ee ce ee ee ee eed eed ee eed 
=z 
So 
<< 
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fa 
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SoOooooooooooooo: 
o 
—Oooe 
—N e@ete 
So 
bad 
be 
ose 
vv<— 
Bors 
aa! 


SET ADDRESS OF KEYPAD SYMBOL TABLE 
LISTHEAD 


SEARCH KEYPAD SYMBOL TABLE FOR ENTRY 


LISTHEAD 


ST ~ oy 


KEYP = KEYPAD SYMBOL TABLE MAN PULATION,R OUTI 15-$ po 4 +59: ; AX/VMS M 4 
Wu 080 SEARCH KEYPAD SYMBOL TABLE FOR ENTRY arse TSBs S8i27:88 HORI MMS Hecre VOs=00 Page 46, 
146 O70A 1 BGTR 10% z1F NEQ 
09 19 O70C 1 j BLSS $8 * whos: 
7 : 1 34 
70E 109 
me 
54 OC AS 9E O70E 1 38 , MOVAB sym T SYMBOL (R3) aR4 :GET ADDRESS OF SYMBOL NAME 
BE 712 109 PUSHR #*MZR RO + SAVE SEARCH PARAMETERS 
5 4 9A 0714 1100 WOVZBL t :GET LENGTH OF SYMBOL N 
66 50 00 6 1 2D 0717 1101 MPC Ri git #0,RO, (R4) SY MBDL H 
F BA O071D 11 ; POPR R1,R2,R3> :RESTORE ygEARCH PARAMETERS 
C6 #16 «O71F «(11 BGTR Ff TIF NEQ 
62 19 , 1 4 BLSS 90S ; 
50 06 0723 11 NCL RO SET 
v6 199 sat INC :SE SUCCESS INDICATOR 


6 ; CHECK THAT THE SYMBOL NAME MATCHES. 


as 
= KEYPAD SYMBOL TABLE MANIPULATION ROUTI 15-SEP-1984 23:59:38 VAX/VMS Macro V04-00 p 7 
SET KEYPAD STATE 2rSEer TSBs Sei27ish HOMES Macro yous 00, _ fo 
7 11 P .SBTTL SET KEYPAD STATE 
y i $ DCLSSETKEY - SET KEYPAD STATE 
726 1114 : THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SET KEYPAD 
? 1115 : COMMAND. 
t é ni? $ INPUTS: 
726 W418 : Rg = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
726 1120 : R9_= ADDRESS OF SCRATCH STACK. 
726 1121: R10 = BASE ADDRESS OF COMMAND WORK AREA. 
, 1 ; R11 = BASE ADDRESS OF PROCESS WORK AREA. 
, 6 1 4 : OUTPUTS: 
: é 1% § ; THE SPECIFIED KEYPAD STATE BECOMES THE LOCKED CURRENT STATE. 
726 1128 ° 
726 11 § DCLSSETKEY:: :SET KEYPAD SYMBOL TABLE STATE 
58 01 00 0726 1130 MOVL  #1,R8 SASSUME /L 
56 7C 0729 1131 SINIT STATE NAME DESCRIPTOR 
a8 1 
of 8 + 4 ; PROCESS THE TOKENS ON THE COMMAND LINE. 
F8D2" 30 0728 11 6 10$: BSBW  DCLSGETDVAL ;GET NEXT DESCRIPTOR VALUE 
55 046 «O91 07 — 11 CMPB 0s #PTR_K_ENDLINE,R5 SEND OF LINE? 
9 13. 0731 «1138 BEQL 0$ :BRANCH IF SO 
55 91 0733 1139 CMPB = #PTR_K_PARAMETR,RS PARAMETER? 
F3 13 ? é 1140 BEQL 108 SIGNORE IF SO 
Facs 30 0738 1141 BSBW DCLSGETNVAL 7GET QUALIFIER NUMBER 
00'8F 51 91 0738 1148 CMPB se R11, ACLISK_STKY_STAT :/STATE? 
08 13 O73F 114 BEQL 208 ‘YES, PROCESS IT 
00'SF 51 91 0741 1144 CMPB «= s«R'1, ACLISK_STKY_LOG $/L06? 
10 13 0745 1145 BEQL 308 [YES, PROCESS IT 
E211 0747 1146 BRB 10$ [NO, GET NEXT TOKEN 
56 7C 0749 1148 208 CLRQ sR INIT TATE NAME DESCRIPTOR 
pc 53 00 «£0 0748 1149 BBS #PTR_V_NEGATE-PTR_V_FLAGS,R3,10$ ;IGNORE IF NOT /STATE 
FBAE’ 50 74F 1150 BSBW © OCLSGETDVAL 3GET NEXT DESCRIPTOR VALUE 
56 51 7D 0752 1151 MOva ?SAVE IT AWAY 
D4 Oo i 1138 BRB 10$ [GET 
58 1 cB 0757 1154 308 BISL #1,R8 ASSUME /L0G 
co 5 0 €1 73A 1155 BBC #PTR_V_NEGATE-PTR_V_FLAGS,R3,10$ ; IGNORE IF NOT /NOLOG 
5B O01)SCCA—s«OO75E 1156 BICL #1,R8 ~. sCLEAR FLAG 
C8 «411 0761 11 BRB 10$ :GET NEXT 
ree 1180 
£6 1160 > SET THE SPECIFIED STATE. 
51 56 7D 076 116¢ Sos:  mOVQ  R6,R1 :GET STATE DESCRIPTOR 
4 13 0766 116 BEQL «=so9) SEXIT IF NONE SPECIFIED 
A 10 076 1164 BSBB  - DCLSALLOC_STATE ?SET NEW STATE 
1* 50 £9 O76A 1165 BLBC SEXIT IF ERROR 
50 4C AB DO O076D 1166 MOVL PRC_L_LASTKEY(R11),RO CLEAR LAST STATE 
| 
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5-SEP=1 384 93:23 259: 38 tee Macro V04-00 
4-SEP-19 241: DCL.SRCIKEYPAL.MAR; 1 
DCLSDEALLOC_STAT 5 
PREC CURRKEYCRT I) = :COPY KEY DEFINITION 
PRC_L_LASTKEY(R11) : 


: output LOG MESSAGE IF REQUESTED. 


sSKIP IF /NOLOG SPECIFIED 
pate , + URRKEY(RI1) sSET ADDRESS OF ASCIC STATE NAME 
1,R1~ :SET ARGUMENT NT 
#CLI$_SETKEY,RO zSET STATUS 
DCLSFORMMSG ;OUTPUT THE LOG MESSAGE 
NORMAL sSET NORMAL SUCCESS STATUS 
;RETURN 


C 6 
TABLE MANIPULATION ROUTI 15-SEP-19 


KEYPAD = KEYPAD SYMBOL 59:38 VAX/VMS Macro Vv04-00 Page 29 
v04-000 ALLOCATE AND INIT A KEYPAD STATE SYMBOL Fae att 9 § 29:38 DCL.SRCJKEYPAD.MAR; 1 . (98) 
r : 1 : . ~SBTTL ALLOCATE AND INIT A KEYPAD STATE SYMBOL 
f " 1 § 3 DCLSALLOC_STATE = ALLOCATE AND INIT A KEYPAD STATE SYMBOL 
as i 8 : THIS ROUTINE IS CALLED TO ALLOCATE AND INIT A KEYPAD STATE SYMBOL. 
794 1190 ; INPUTS: 
794 1191; 
794 113 : R1/R2 = DESCRIPTOR OF NEW KEYPAD STATE 
794 1193; R11 = ADDRESS OF PROCESS WORK AREA 
794 1194; 
794 1195 ; OUTPUTS: 
794 1136 ; 
14 1138 5 PRC_L_CURRKEY = SET TO THE NEWLY ALLOCATED STATE SYMBOL 
0794 1199; RO LBC INDICATES SYMBOL TABLE OVERFLOW 
0794 1200 ; 
0794 1 9} 
794 1 ¢ DCLSALLOC_STATE:: Z ALLOCATE a SYMBOL 
3—€ BB 0794 120 POSHR  #*M<R1,R2,R3,R4,R5> 3 SAVE 
0796 1204 DISABLE [DISABL fre TRL/Y'S 
54 51 7D O79C 1205 MOVa R1,R4 SSAVE STATE DESCRIPTOR 
51 6 O79F 1206 INCL [ADD ROOM FOR BYTE COUNT 
FB85C' 30 O7A1 1207 BSBW DCLSALLDYNMEM :GET MEMORY TO SAVE STATE IN 
17 50 €9 O7A& 1208 BLBC BRANCH IF NO ROOM FOR SYMBOL 
48 AB 52 00 O7A7 1209 MOVL Re, Pa L_CURRKEY (R11) SET CURRENT KEY STATE 
8 54 90 O7AB 1210 MOVB Rey [MOVE THE STRING LENGTH 
62 6 54 28 O7AE 1211 MOVC3 Re. (RS) , (R2) [MOVE THE STRING 
07B2 1 1 STATUS NORMAL SET NORMAL STATUS 
0789 121 ENABLE ENABLE CTRL/Y'S 
3— BA O7BB 1214 POPR #*M<R1,R2,R3,R4,R5> SRESTORE R1-R5 
05 O7BD 1215 RSB 3 
O7BE 1216 
143 1217 90$: ENABLE ENABLE CTRL/Y'S 
3 BA O7CO 1218 POPR #*M<R1,R2,R3,R4,R5> RESTORE R1-R5 
Orce 1913 STATUS SYMOVF : 
05 O7C 1220 RSB 3 
O7CA 1221 


; 


} 


dD 6 
KEYPA = KEYPAD SYMBOL TABLE MANIPULATION ROUTI i on s iat 4 8 YVAX/VMS Macro v04-00 Page 30 
¥54-000 DEALLOCATE A KEYPAD STATE SYMBOL 4-SEP-1984 t 33:27 34 DCL SRCIJKEYPAD.MAR; 1 . (16) | 


cA 3 : «SBTTL DEALLOCATE A KEYPAD STATE SYMBOL 
zCA 5 ; DCLSDEALLOC_STATE = DEALLOCATE A KEYPAD STATE SYMBOL 
CA ° 3 THIS ROUTINE IS CALLED TO DEALLOCATE A KEYPAD STATE SYMBOL. 
7CA 1 § 3: INPUTS: 
7CA 1230; 
7CA 1031: RO = ADDRESS OF ASCIC KEYPAD STATE 
gta i ¢ ; R11 = ADDRESS OF PROCESS WORK AREA 
oth 1234 ; OUTPUTS: 
CA 1235; | 
7CA 1 : : NONE 
7CA 1 
7CA 1238 
7CA 1239 DCLSDEALLOC_STATE:: :DEALLOCATE | STATE SYMBOL 
7CA 1240 DISABLE ABLE CT 
700 1241 RO,-(SP) ER “RS 
1 4g R2.-(SP) 
124 MOVZBL (RO),R1 GET LENGTH OF TEMPORARY STATE 
709 1244 ZINCR TO INCLUDE BYTE COUNT 
70B 1245 BSBW DCL SDEADYNMEM [DEALLOCATE THE BLOCK 
1246 MOVQ (SP) +,R2 ;RESTORE RO-R3 
7E1 1247 MOVQ  (SP)+-RO 
E4 1248 ENABLE TENABLE CTRL/Y'S 
£6 1249 RSB : 
£7 1250 
E7 1251 END 
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YP = KEYPAD SYMBOL TABLE MANIPULATION ROUTI 15-SEP-1984 23:59:38 YAX/VMS Macro V04-00 
Symbol table 46-SEP-1984 g ariae YOCLY SRCIKEYPAD. MAR; 1 
PRC_Q_LABEL WRK_B_MINPARM FEFFFFDI 
PRC_Q_LOCAL 33 WRK-B_PARMCNT FFFFFFCE 
PRC_Q-SAVEPRIV WRK-B_PARMSUM FEFFFFCE 
PRC_T_OUTDVI 1 URE AB RECALL CHT FRFFFFCS 
PRC_W_ASTIOSB WRK-B_VALLEV FRFFFFC4 
PRC_W_ASTRETN ¢ WRK-B_VERBTYP FFFFFF 3 
PRC_W_ASTSTATUS 4 WRK-C_INPBUF SIZ = 000001 
PRC_W_ATTMBX A WRK-C-LENGTH FRFFFS 
PRC_W_FLAGS 68 WRK-G_BUFFER FFFFFS 
PRC_W_INPCHAN 64 WRK-G_INPBUF dada 24 
PRC_W_ONLEVEL 6A WRK-G_RESULT FFFFFIB6 
PRC W_OUTIEL 114 WRK-K-LENGTH FFFFF486 
PRC-W_OUTIS 116 WRK-L-CHARPTR FFFFF GSE 
PRC_W_OUTMBXC OCA WRK-L-DISALLOW FFFFFFE6 
PRC_W_OUTMBXREF OOCE WRK-L-ERRORRTN FFFFFOAE 
PRC_W_OUTMBXS12Z ooce WRK-L-EXPANDPTR FFFF F486 
PRC_W_PMPTCTRL F WRK-L_ IMAGE pereet te 
PRC_W_WAITIOSB 66 WRK-L-MARKPTR FFFFF4BA 
PTR_B_LEVEL O00 WRK-L-PAROUT dagaddt 
PTR_B_NUMBER 38 5 WRK-L-PMPTADDR FFFFFOA 
PTR_B_PARMCNT 06 WRK-L-PROMPTRIN FEFFFOAG 

VALUE 38 WRK-L-PROPTR FEFFFFC6 

PTR_C_LENGTH One WRK_L_QUABLK FFFFFFCA 

=K-C = 000 WRK-L-READRTN FFFFFOAA 
PTR_K_ENDL INE = 00000004 WRK-L"RECALLPTR FFFFFFEA 
PTR_K_LENGTH WRK-L-RSLEND FFFFFFB6 
PTR_K_PARAMETR = WRK-L-RSLNXT FFFFFFBA 
PTR-L_DESCR 000000 WRK-L-SAVAP FFFFFFFS 
PTR_L_ENTITY 008 WRK-L-SAVFP FFFFFFFC 
PTR_V_FLAGS = 0014 WRK-L-SAVSP FFFFFFFG 
PTR_V_KEYWORD = 15 WRK-L_SIGNALRTN 44ad dds 
PTR” V" NEGATE = 14 WRK_L_SPECRIN FFFFFOB 
$ 00 & 03 WRK-L_TAB_VEC FFFFFFDE 
STATE 69 R 0 RK-L_VERB FFFFFFB 
STSSM_INHIB_MSG = 00 WRK-W_FLAGS FFFFFFF 
SYM_B_FLAGS~ 08 WRK-W_FLAGS2 FFEFFFFF 
SYA-BCTYPE OA URK-V_PRPTLEN FEEEESSE 
SYA_B_TY -#. 
SYM_K_KEYPAD = 0 _$$_ = QOOO00EF 
SYM_L-BL 
SYMIL-FL 
SYM_M_ECHO = 
SYM_T_ SYMBOL D0¢ 
SYM_V—ECHO = 
SYM_V~ERASE = 
SYA_V_LOCK = 
SYM_V~STATE = 
eevee” * Seite 
SYNDEF TAB B7 R 
SYNNAME_TAB 3 
SyS8F ADL cece 
UNDKEY OOOOO2ZFE R 
VALIDATE _KEY_NAME eeeeeere 
WRK_B_CMBOPT FFFFFFC 
WRK-B FFFFFFD 
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! Psect synopsis ! 


der orrececaenmeenaa +} 


PSECT name Allocation PSECT No. Attributes 

iaatt® popeeree {83 SUE $3) MBPIE USE EON ABE TEL Main MOREE NORD. NOWRE NOVEE BYE 

DCLSZCODE 000007€E ( 202 *) 2 « 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOURT NOVEC BYTE 
$ ewes eman ees e as see ses memame} 
; Performance indicators H 

Phase Page faults CPU Time Elapsed Time 

whew poe dean ‘ 19 : 9 9 

rocess : 
3 te: 2) 09 


i as 
5 a table sort $8 


0 0:00: Q: 
21 :00:03. 
ond, table output 24 :00:00. 


—N@o 
SON NUON 


ii.4 
Psect synopsis output ‘ : 0: ° i ‘00: 0:5 
Cross-reference output :00: 309-9 
Assembler run totals 596 :00:14 


The working set_Limit yes 1350 popre. 

52334 bytes (103 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space at Locate to hold 538 non-local and 89 local symbols. 
1251 source Lines were read in Pass 1, produc object records in Pass 2. 

44 pages of virtual memory were used to define. 8 macros. 
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! Macro Library statistics : 
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Macro aust name Macros _defined 


roe : bet 0843 M oY MLB; 1 0 
: Se mB: 1 11 
Tey if PH hue: :2 : 
rbeS580un (all Libraries) 1 
686 GETS were required to define 19 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:KEYPAD/OBJ=O0BJ$:KEYPAD MSRC$:KEYPAD/UPDATE=(ENHS: KEYPAD) +EXECMLS$/L1B+L1B$:DCL/LIB+SYS$LIBRARY : SYSBLDMLB/LIB 
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